# Table B1

#####
rm(list=ls(all=TRUE))

library(ggplot2)
library(ggpubr)

#### Dataset Original ####
setwd("/Users/sebastian/Dropbox/The politics of interruptions - JOP RR/Replication Files/Data Rep")
load("data_empirics_count_rep.Rdata")

#### Datasets Threshold ----
load("data_empirics_count_0.Rdata") 
load("data_empirics_count_50.Rdata") 
load("data_empirics_count_100.Rdata") 
load("data_empirics_count_200.Rdata") 

#### Number of legislator by gender ####
table(data_empirics_count_0$female_dum[data_empirics_count_0$tot_speeches_leg_cohort>0])
# 0   1 
# 788 207 

table(data_empirics_count$female_dum[data_empirics_count$tot_speeches_leg_cohort>0])
# 0   1 
# 778 206 

table(data_empirics_count_50$female_dum[data_empirics_count_50$tot_speeches_leg_cohort>0])
# 0   1 
# 755 202

table(data_empirics_count_100$female_dum[data_empirics_count_100$tot_speeches_leg_cohort>0])
# 0   1 
# 746 201

table(data_empirics_count_200$female_dum[data_empirics_count_200$tot_speeches_leg_cohort>0])
# 0   1 
# 740 199